dim ws : set ws = CreateObject("WScript.Shell")
dim varName : varName = "Rats"
dim regPath : regPath ="HKEY_CURRENT_USER\Software\MyApp\PADS\" & varName
value = ws.RegRead(regPath)
Application.ExecuteCommand("Display Colors Setup")
if value = 0 then
	value = 1
	DisplayColorsSetupDlg.SelectedColor.SetActive (27)
else 
	value =0
	DisplayColorsSetupDlg.SelectedColor.SetActive (0)
end if
DisplayColorsSetupDlg.Connection.Click()
DisplayColorsSetupDlg.ColorGrid.ClearSelection
DisplayColorsSetupDlg.Ok.Click()
DisplayColorsSetupDlg.Ok.Click()

ws.RegWrite regPath, value, "REG_EXPAND_SZ"
set ws = nothing